home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #11 / Commodore_Disk_User_Vol.4_11_1991_-.d64 / vertical scroll (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  11KB  |  323 lines
  1. 10 m=8192:r=0:l=360:gosub260
  2. 20 m=12296:r=0:l=1550:gosub260
  3. 30 m=12544:r=0:l=1840:gosub260
  4. 40 m=12808:r=0:l=2110:gosub260
  5. 50 l=2380:r=0:m=13320:gosub260
  6. 60 l=2670:r=0:m=13568:gosub260
  7. 70 l=2940:r=0:m=13832:gosub260
  8. 80 l=3210:r=0:m=33856:gosub260
  9. 85 l=3270:r=0:m=7937:gosub260
  10. 91 print:print"insert output device"
  11. 92 print:print"and press return"
  12. 93 open 1,0:input#1,a$:close1:print
  13. 99 rem
  14. 100 sys 57812 "mc code",8,1
  15. 110 rem
  16. 120 rem alter above line for new name
  17. 130 rem or to save to tape etc.
  18. 140 rem
  19. 150 rem
  20. 160 sys 40000
  21. 170 end
  22. 180 open 1,0:input#1,a$:close1
  23. 260 m=m+6144
  24. 265 s=0:fori=0to7:readd
  25. 270 ifd<0then340
  26. 280 ifd>255then330
  27. 290 pokem+r,d:s=s+d:r=r+1:nexti
  28. 300 readd:ifd<0then340
  29. 310 ifs=dthenl=l+10:goto265
  30. 320 print"sumcheck ";
  31. 330 print"error in line";l:end
  32. 340 readd:ifs<>dthen320
  33. 350 return
  34. 360 data 76,4,34,76,57,34,76,212,569
  35. 370 data 34,76,18,32,76,238,34,76,584
  36. 380 data 16,35,169,1,141,168,2,32,564
  37. 390 data 58,35,234,234,169,7,133,185,1055
  38. 400 data 169,0,141,230,219,141,190,219,1309
  39. 410 data 141,189,219,141,191,219,141,231,1472
  40. 420 data 219,141,229,219,141,192,219,141,1501
  41. 430 data 193,219,141,194,219,141,32,208,1347
  42. 440 data 141,33,208,169,0,141,14,220,926
  43. 450 data 133,251,169,56,133,252,169,23,1186
  44. 460 data 141,17,208,133,253,169,1,133,1055
  45. 470 data 187,120,169,146,141,20,3,169,955
  46. 480 data 32,141,21,3,169,248,141,18,773
  47. 490 data 208,88,169,129,141,26,208,173,1142
  48. 500 data 1,220,41,16,208,249,169,240,1144
  49. 510 data 141,26,208,120,169,49,141,20,874
  50. 520 data 3,169,234,141,21,3,169,27,767
  51. 530 data 141,17,208,169,1,141,14,220,911
  52. 540 data 88,96,173,25,208,41,1,208,840
  53. 550 data 3,76,49,234,141,25,208,165,901
  54. 560 data 254,240,11,230,2,165,2,41,945
  55. 570 data 1,208,3,76,209,33,198,253,981
  56. 580 data 165,253,201,15,240,13,173,17,1077
  57. 590 data 208,41,224,5,253,141,17,208,1097
  58. 600 data 76,209,33,169,23,133,253,173,1069
  59. 610 data 17,208,41,224,5,253,141,17,906
  60. 620 data 208,162,3,189,40,4,157,0,763
  61. 630 data 4,189,80,4,157,40,4,189,667
  62. 640 data 120,4,157,80,4,189,160,4,718
  63. 650 data 157,120,4,189,200,4,157,160,991
  64. 660 data 4,189,240,4,157,200,4,189,987
  65. 670 data 24,5,157,240,4,189,64,5,688
  66. 680 data 157,24,5,189,104,5,157,64,705
  67. 690 data 5,189,144,5,157,104,5,189,798
  68. 700 data 184,5,157,144,5,189,224,5,913
  69. 710 data 157,184,5,189,8,6,157,224,930
  70. 720 data 5,189,48,6,157,8,6,189,608
  71. 730 data 88,6,157,48,6,189,128,6,628
  72. 740 data 157,88,6,189,168,6,157,128,899
  73. 750 data 6,189,208,6,157,168,6,189,929
  74. 760 data 248,6,157,208,6,189,32,7,853
  75. 770 data 157,248,6,189,72,7,157,32,868
  76. 780 data 7,189,112,7,157,72,7,189,740
  77. 790 data 152,7,157,112,7,189,192,7,823
  78. 800 data 157,152,7,169,32,157,192,7,873
  79. 810 data 232,224,37,240,3,76,211,32,1055
  80. 820 data 230,187,165,187,41,1,133,187,1131
  81. 830 data 169,190,133,184,160,0,177,251,1264
  82. 840 data 133,183,169,20,56,229,183,133,1106
  83. 850 data 183,169,0,141,167,2,177,251,1090
  84. 860 data 24,101,184,133,184,160,2,177,965
  85. 870 data 251,166,187,224,0,240,2,9,1079
  86. 880 data 128,145,184,32,217,33,224,0,963
  87. 890 data 240,6,201,32,240,2,9,128,858
  88. 900 data 230,184,145,184,198,184,200,200,1525
  89. 910 data 238,167,2,173,167,2,197,183,1129
  90. 920 data 208,213,224,0,240,11,165,251,1312
  91. 930 data 24,105,40,133,251,144,2,230,929
  92. 940 data 252,169,248,141,18,208,76,188,1300
  93. 950 data 254,41,127,201,46,208,4,24,905
  94. 960 data 105,16,96,201,45,208,4,56,731
  95. 970 data 233,17,96,201,48,208,4,56,863
  96. 980 data 233,5,96,201,32,208,1,96,872
  97. 990 data 201,27,144,4,56,233,16,96,777
  98. 1000 data 24,105,64,96,169,0,133,251,842
  99. 1010 data 169,56,133,252,160,0,169,32,971
  100. 1020 data 145,251,136,208,249,230,252,165,1636
  101. 1030 data 252,201,160,208,241,169,56,133,1420
  102. 1040 data 252,160,0,169,1,145,251,165,1143
  103. 1050 data 251,24,105,40,133,251,144,243,1191
  104. 1060 data 230,252,165,252,201,160,208,235,1703
  105. 1070 data 96,162,0,189,152,7,157,192,955
  106. 1080 data 7,189,112,7,157,152,7,189,820
  107. 1090 data 72,7,157,112,7,189,32,7,583
  108. 1100 data 157,72,7,189,248,6,157,32,868
  109. 1110 data 7,189,208,6,157,248,6,189,1010
  110. 1120 data 168,6,157,208,6,189,128,6,868
  111. 1130 data 157,168,6,189,88,6,157,128,899
  112. 1140 data 6,189,48,6,157,88,6,189,689
  113. 1150 data 8,6,157,48,6,189,224,5,643
  114. 1160 data 157,8,6,189,184,5,157,224,930
  115. 1170 data 5,189,144,5,157,184,5,189,878
  116. 1180 data 104,5,157,144,5,189,64,5,673
  117. 1190 data 157,104,5,189,24,5,157,64,705
  118. 1200 data 5,189,240,4,157,24,5,189,813
  119. 1210 data 200,4,157,240,4,189,160,4,958
  120. 1220 data 157,200,4,189,120,4,157,160,991
  121. 1230 data 4,189,80,4,157,120,4,189,747
  122. 1240 data 40,4,157,80,4,189,0,4,478
  123. 1250 data 157,40,4,232,224,40,240,3,940
  124. 1260 data 76,59,34,96,169,0,133,251,818
  125. 1270 data 169,216,133,252,160,0,169,6,1105
  126. 1280 data 145,251,136,208,249,230,252,165,1636
  127. 1290 data 252,201,220,208,241,96,169,0,1387
  128. 1300 data 133,251,133,253,169,4,133,252,1328
  129. 1310 data 169,160,133,254,160,0,177,251,1304
  130. 1320 data 145,253,136,208,249,230,252,230,1703
  131. 1330 data 254,165,252,201,8,208,239,96,1423
  132. 1340 data 169,0,133,251,133,253,169,4,1112
  133. 1350 data 133,254,169,160,133,252,169,54,1324
  134. 1360 data 133,1,160,0,177,251,145,253,1120
  135. 1370 data 136,208,249,230,252,230,254,165,1724
  136. 1380 data 254,201,8,208,239,169,55,133,1267
  137. 1390 data 1,96,169,147,32,210,255,169,1079
  138. 1400 data 0,133,251,169,216,133,252,160,1314
  139. 1410 data 0,173,168,2,145,251,136,208,1083
  140. 1420 data 248,230,252,165,252,201,220,208,1776
  141. 1430 data 240,96,234,255,-1,825
  142. 1550 data 3,7,15,30,60,60,63,63,301
  143. 1560 data 127,127,60,60,60,60,63,63,620
  144. 1570 data 15,31,62,60,60,60,60,60,408
  145. 1580 data 127,127,60,60,60,60,60,60,614
  146. 1590 data 127,127,60,60,60,60,63,63,620
  147. 1600 data 127,127,60,60,60,60,63,63,620
  148. 1610 data 15,31,62,60,60,60,60,60,408
  149. 1620 data 126,126,60,60,60,60,63,63,618
  150. 1630 data 15,15,3,3,3,3,3,3,48
  151. 1640 data 3,3,0,0,0,0,0,0,6
  152. 1650 data 60,60,60,61,63,63,63,63,493
  153. 1660 data 60,60,60,60,60,60,60,60,480
  154. 1670 data 56,60,62,63,63,63,61,60,488
  155. 1680 data 60,60,62,63,63,63,63,63,497
  156. 1690 data 15,31,62,60,60,60,60,60,408
  157. 1700 data 127,127,60,60,60,60,63,63,620
  158. 1710 data 15,31,62,60,60,60,60,60,408
  159. 1720 data 127,127,60,60,60,60,63,63,620
  160. 1730 data 15,31,62,60,60,62,31,15,336
  161. 1740 data 63,63,51,3,3,3,3,3,192
  162. 1750 data 126,126,60,60,60,60,60,60,612
  163. 1760 data 60,60,60,60,60,60,60,60,480
  164. 1770 data 60,60,60,60,60,60,60,61,481
  165. 1780 data 60,60,60,62,31,15,3,3,294
  166. 1790 data 60,60,60,60,30,15,7,3,295
  167. 1800 data 63,63,48,0,0,1,3,7,185
  168. 1810 data 60,48,48,48,48,48,60,0,360
  169. 1820 data 0,0,0,0,0,0,252,252,504
  170. 1830 data 60,-1,60
  171. 1840 data 0,0,0,0,0,0,0,0,0
  172. 1850 data 192,192,192,192,192,192,192,192,1536
  173. 1860 data 240,248,124,60,60,124,248,224,1328
  174. 1870 data 240,248,124,60,60,120,240,240,1332
  175. 1880 data 252,252,252,188,60,60,60,60,1184
  176. 1890 data 252,252,12,0,240,248,124,60,1188
  177. 1900 data 240,248,60,28,0,0,240,248,1064
  178. 1910 data 252,252,60,124,248,240,224,192,1592
  179. 1920 data 240,248,124,60,60,124,248,240,1344
  180. 1930 data 240,248,60,60,60,124,252,252,1296
  181. 1940 data 0,102,60,255,60,102,0,0,579
  182. 1950 data 240,248,124,60,124,252,252,188,1488
  183. 1960 data 0,0,0,0,0,24,24,48,96
  184. 1970 data 0,0,0,0,0,0,63,63,126
  185. 1980 data 0,0,0,0,0,0,0,0,0
  186. 1990 data 0,3,6,12,24,48,96,0,189
  187. 2000 data 15,31,62,60,60,60,61,63,412
  188. 2010 data 3,3,3,3,15,15,3,3,48
  189. 2020 data 15,31,60,56,0,0,0,3,165
  190. 2030 data 15,31,60,56,0,0,3,3,168
  191. 2040 data 0,1,3,7,15,30,60,60,176
  192. 2050 data 63,63,60,60,63,63,0,0,372
  193. 2060 data 15,31,62,60,60,60,63,63,414
  194. 2070 data 63,63,60,60,0,1,3,3,253
  195. 2080 data 15,31,62,60,60,62,31,15,336
  196. 2090 data 15,31,62,60,60,62,31,15,336
  197. 2100 data 0,-1,0
  198. 2110 data 192,224,240,120,60,60,252,252,1400
  199. 2120 data 240,248,124,60,60,120,240,240,1332
  200. 2130 data 240,248,60,28,0,0,0,0,576
  201. 2140 data 192,224,240,120,56,60,60,60,1012
  202. 2150 data 252,252,12,0,0,0,224,224,964
  203. 2160 data 252,252,12,0,0,0,224,224,964
  204. 2170 data 240,248,60,28,0,0,252,252,1080
  205. 2180 data 126,126,60,60,60,60,252,252,996
  206. 2190 data 240,240,192,192,192,192,192,192,1632
  207. 2200 data 252,252,240,240,240,240,240,240,1944
  208. 2210 data 62,124,248,240,224,192,128,128,1346
  209. 2220 data 0,0,0,0,0,0,0,0,0
  210. 2230 data 7,15,31,63,255,255,239,207,1072
  211. 2240 data 60,60,60,60,188,252,252,252,1184
  212. 2250 data 240,248,124,60,60,60,60,60,912
  213. 2260 data 240,248,124,60,60,124,248,240,1344
  214. 2270 data 240,248,124,60,60,60,60,60,912
  215. 2280 data 240,248,124,60,60,124,248,240,1344
  216. 2290 data 240,248,60,28,0,0,240,248,1064
  217. 2300 data 252,252,204,192,192,192,192,192,1668
  218. 2310 data 126,126,60,60,60,60,60,60,612
  219. 2320 data 60,60,60,60,60,60,60,60,480
  220. 2330 data 15,15,15,15,15,15,207,239,536
  221. 2340 data 60,60,60,124,248,240,192,192,1176
  222. 2350 data 60,60,60,60,120,240,224,192,1016
  223. 2360 data 252,252,60,124,248,240,224,192,1592
  224. 2370 data 0,-1,0
  225. 2380 data 60,60,60,60,60,60,0,0,360
  226. 2390 data 60,60,60,60,127,127,0,0,494
  227. 2400 data 60,60,60,62,31,15,0,0,288
  228. 2410 data 60,60,60,60,127,127,0,0,494
  229. 2420 data 60,60,60,60,127,127,0,0,494
  230. 2430 data 60,60,60,60,126,126,0,0,492
  231. 2440 data 60,60,60,62,31,15,0,0,288
  232. 2450 data 60,60,60,60,126,126,0,0,492
  233. 2460 data 3,3,3,3,15,15,0,0,42
  234. 2470 data 0,0,56,60,31,15,0,0,162
  235. 2480 data 63,63,61,60,60,60,0,0,367
  236. 2490 data 60,60,60,60,127,127,0,0,494
  237. 2500 data 60,60,60,60,60,60,0,0,360
  238. 2510 data 61,60,60,60,60,60,0,0,361
  239. 2520 data 60,60,60,62,31,15,0,0,288
  240. 2530 data 60,60,60,60,126,126,0,0,492
  241. 2540 data 60,62,31,15,0,0,0,0,168
  242. 2550 data 63,63,61,60,126,126,0,0,499
  243. 2560 data 0,0,56,60,31,15,0,0,162
  244. 2570 data 3,3,3,3,7,7,0,0,26
  245. 2580 data 60,60,60,62,31,15,0,0,288
  246. 2590 data 60,60,30,15,7,3,0,0,175
  247. 2600 data 63,63,63,63,62,60,0,0,374
  248. 2610 data 15,31,62,60,60,60,0,0,288
  249. 2620 data 3,3,3,3,7,7,0,0,26
  250. 2630 data 15,31,62,60,63,63,0,0,294
  251. 2640 data 195,207,207,207,207,207,195,255,1680
  252. 2650 data 0,0,0,0,0,0,0,0,0
  253. 2660 data 24,-1,24
  254. 2670 data 0,0,0,0,0,0,0,0,0
  255. 2680 data 192,192,192,192,252,252,0,0,1272
  256. 2690 data 192,0,0,12,252,252,0,0,708
  257. 2700 data 120,60,60,124,248,240,0,0,852
  258. 2710 data 255,255,60,60,60,60,0,0,750
  259. 2720 data 60,60,60,124,248,240,0,0,792
  260. 2730 data 124,60,60,124,248,240,0,0,856
  261. 2740 data 192,192,192,192,192,192,0,0,1152
  262. 2750 data 120,60,60,124,248,240,0,0,852
  263. 2760 data 60,60,60,124,248,240,0,0,792
  264. 2770 data 255,153,195,0,195,153,255,255,1461
  265. 2780 data 60,60,60,124,248,240,0,0,792
  266. 2790 data 255,255,255,255,255,231,231,207,1944
  267. 2800 data 0,0,0,0,0,0,0,0,0
  268. 2810 data 0,0,3,3,3,3,0,0,12
  269. 2820 data 255,252,249,243,231,207,159,255,1851
  270. 2830 data 63,62,60,62,31,15,0,0,293
  271. 2840 data 3,3,3,3,63,63,0,0,138
  272. 2850 data 15,31,62,60,63,63,0,0,294
  273. 2860 data 0,0,56,60,31,15,0,0,162
  274. 2870 data 63,63,0,0,0,0,0,0,126
  275. 2880 data 0,0,56,60,31,15,0,0,162
  276. 2890 data 62,60,60,62,31,15,0,0,290
  277. 2900 data 3,3,3,3,3,3,0,0,18
  278. 2910 data 30,60,60,62,31,15,0,0,258
  279. 2920 data 0,0,56,60,31,15,0,0,162
  280. 2930 data 255,-1,255
  281. 2940 data 60,60,60,60,60,60,0,0,360
  282. 2950 data 120,60,60,124,248,240,0,0,852
  283. 2960 data 0,0,28,60,248,240,0,0,576
  284. 2970 data 60,56,120,240,224,192,0,0,892
  285. 2980 data 0,0,0,12,252,252,0,0,516
  286. 2990 data 0,0,0,0,0,0,0,0,0
  287. 3000 data 60,60,60,124,248,240,0,0,792
  288. 3010 data 60,60,60,60,126,126,0,0,492
  289. 3020 data 192,192,192,192,240,240,0,0,1248
  290. 3030 data 240,240,240,240,224,192,0,0,1376
  291. 3040 data 192,224,240,248,124,62,0,0,1090
  292. 3050 data 0,0,0,12,252,252,0,0,516
  293. 3060 data 15,15,15,15,15,15,0,0,90
  294. 3070 data 252,252,124,60,60,60,0,0,808
  295. 3080 data 60,60,60,124,248,240,0,0,792
  296. 3090 data 60,120,224,240,252,124,0,0,1020
  297. 3110 data 192,224,240,248,124,62,0,0,1090
  298. 3120 data 124,60,60,124,248,240,0,0,856
  299. 3130 data 192,192,192,192,224,224,0,0,1216
  300. 3140 data 60,60,60,124,248,240,0,0,792
  301. 3150 data 60,60,120,240,224,192,0,0,896
  302. 3160 data 255,255,255,63,31,15,0,0,874
  303. 3170 data 240,248,124,60,60,60,0,0,792
  304. 3180 data 192,192,192,192,224,224,0,0,1216
  305. 3190 data 128,0,0,12,252,252,0,0,644
  306. 3200 data 231,-1,231
  307. 3210 data 169,0,133,251,133,253,169,31,1139
  308. 3220 data 133,254,169,55,133,252,160,0,1156
  309. 3230 data 177,251,145,253,136,208,249,230,1649
  310. 3240 data 252,230,254,165,254,201,56,208,1620
  311. 3250 data 239,169,31,133,252,169,251,162,1406
  312. 3260 data 0,160,56,32,216,255,96,255,-1,1070
  313. 3270 data 11,8,0,0,158,50,48,54,329
  314. 3280 data 51,0,0,0,0,0,165,186,402
  315. 3290 data 201,126,240,37,169,0,133,251,1157
  316. 3300 data 133,253,169,160,133,254,56,233,1391
  317. 3310 data 23,133,252,160,0,177,251,145,1141
  318. 3320 data 253,136,208,249,198,252,198,254,1748
  319. 3330 data 165,252,201,8,208,239,32,0,1105
  320. 3340 data 32,169,126,133,186,169,28,141,984
  321. 3350 data 24,208,173,255,47,133,254,32,1126
  322. 3360 data 9,32,169,21,141,24,208,32,-1,636
  323.